﻿Imports System.Threading
Imports System.Windows.Forms

Public Class UnmodalMessagebox

    Private Class UnmodalMsgbx

        Private _message As String
        Private _title As String

        Public Sub New(message As String, title As String)
            _message = message
            _title = title
        End Sub

        Sub Show()
            MessageBox.Show(_message, _title)
        End Sub

    End Class

    Public Shared Sub Show(message As String, title As String)

        Dim unmMsgbx = New UnmodalMsgbx(message, title)
        Dim th = New Thread(AddressOf unmMsgbx.Show)
        th.Name = String.Format("{0} - {1}", title, message)

        th.Start()
    End Sub

End Class
